home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 April / 64er_Magazin_94-04_1994_Markt__Technik_de_Side_A.d64 / blaster+ install (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  104 lines
  1. 5 dim p$(15),x(15),ad(15)
  2. 6 fort=0to15:readp$(t),x(t),ad(t)
  3. 7 ad(t)=ad(t)+47104:next
  4. 10 za$(1)="(1-[194]yte-[218]ahl) "
  5. 11 za$(2)="(2-[194]yte-[218]ahl) "
  6. 12 za$(3)="(on/off)      "
  7. 13 za$(4)="(turbo/serial)"
  8. 19 poke53281,0:poke53280,0
  9. 20 printchr$(14)"[147][154][193]ss[194]laster+                 [208]refs[201]nstall[146]";
  10. 30 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  11. 40 gosub4000
  12. 50 gosub5000
  13. 60 print"[215]erte aendern [j/n]?"
  14. 65 geta$:ifa$="j"then70
  15. 66 ifa$<>"n"then65
  16. 67 goto6000
  17. 70 gosub3500:gosub5000:ed=1
  18. 75 fort=0to15:w=t
  19. 76 print""p$(t);za$(x(t)):gosub5025
  20. 78 print"[145]";:gosub2000
  21. 79 forx=20to24:poke781,x:sys59903:nextx
  22. 80 pokead(t),lo:ifx(t)=2thenpokead(t)+1,hi
  23. 85 next:goto50
  24. 1000 data"[210][193][205]-[211]tart       :",2,2066
  25. 1010 data"[210][193][205]-[197]nde        :",2,2068
  26. 1020 data"[207]pcodetabulator :",1,2168
  27. 1030 data"[205]nemnonictabul. :",1,2169
  28. 1040 data"[195]ommenttabulator:",1,2170
  29. 1050 data"[198]astscrollspeed :",1,2171
  30. 1060 data"[193]rrowspeed      :",1,2172
  31. 1070 data"[194]ordercolour    :",1,2173
  32. 1080 data"[194]ackgroundcolour:",1,2174
  33. 1090 data"[211]criptcolour    :",1,2175
  34. 1100 data"[195]ursorcolour    :",1,2176
  35. 1110 data"[193]rrowcolour     :",1,2177
  36. 1120 data"[208]reftakemode    :",1,2180
  37. 1130 data"[214]isfastload     :",3,2179
  38. 1140 data"[193]ssemblermode   :",4,2154
  39. 1150 data"[204]ongassembly    :",3,2178
  40. 2000 rem input
  41. 2020 poke19,1:inputza$:poke19,0:print
  42. 2030 onx(t)goto2100,2200,2300,2400
  43. 2100 rem ein-byte-zahl
  44. 2110 gosub3000:ifhi>0then 2000
  45. 2120 return
  46. 2200 rem zwei-byte-zahl
  47. 2210 goto3000:rem return
  48. 2300 rem on/off
  49. 2310 hi=0:ifza$="off"thenlo=0:return
  50. 2315 ifza$<>"on"thengoto2000
  51. 2320 lo=1:return
  52. 2400 hi=0:lo=asc(za$+chr$(0)):iflo<84andlo>85then2000
  53. 2410 return
  54. 3000 rem hexdez wandler
  55. 3010 z=0:b=16
  56. 3020 ifleft$(za$,1)<>"$"thenb=10:goto3030
  57. 3025 za$=right$(za$,len(za$)-1)
  58. 3030 fors=1tolen(za$):h=asc(mid$(za$,s))-48:z=z*b+h+7*(h>9):next
  59. 3050 hi=int(z/256):lo=z-hi*256
  60. 3060 return
  61. 3100 rem dezhex wandler
  62. 3110 za$="":forp=0to0:z=z/16:s=(z-int(z))*16:za$=chr$(55+s+7*(s<10))+za$:p=-z
  63. 3115 next:za$="$"+za$
  64. 3120 return
  65. 3500 rem loescher
  66. 3510 forx=2to24:poke781,x:sys59903:next:return
  67. 3600 rem waiter
  68. 3610 poke198,0:wait198,1:poke198,0:return
  69. 4000 rem loadprefs
  70. 4010 gosub3500:print "  [194]itte [193]ss[194]laster+ [196]iskette einlegen!":gosub3600
  71. 4020 open2,8,2,"bed,p,r":ifst=0then4026
  72. 4025 close2:goto4000
  73. 4026 y=49163
  74. 4030 get#2,a$:a=asc(a$+chr$(0))
  75. 4040 pokey,a:y=y+1
  76. 4050 ifst=0then4030
  77. 4060 close2:return
  78. 5000 rem printprefs
  79. 5010 gosub3500:print"" :ed=0
  80. 5020 forw=0to15:print"        "p$(w);
  81. 5025 za=peek(ad(w)):ifx(w)=2thenza=za+256*peek(ad(w)+1):z=za:gosub3100:printza$
  82. 5030 ifx(w)<>3then5040
  83. 5031 ifpeek(ad(w))=0thenprint"off":goto5050
  84. 5032 print"on"
  85. 5040 ifx(w)<>4then5050
  86. 5041 ifpeek(ad(w))=asc("s")thenprint"serial":goto5050
  87. 5042 print"turbo"
  88. 5050 ifx(w)=1thenprintza
  89. 5052 ifedthenreturn
  90. 5055 next:return
  91. 6000 rem prefssave
  92. 6010 print"[201]n diesem [218]ustand abspeichern[j/n]?"
  93. 6020 geta$:ifa$="j"then6100
  94. 6030 ifa$<>"n"then6020
  95. 6040 end
  96. 6100 gosub3500:print"[194]itte warten..."
  97. 6110 open1,8,15,"s:bed":close1
  98. 6120 open2,8,2,"bed,p,w"
  99. 6130 print#2,chr$(13)chr$(8);
  100. 6140 z=49165
  101. 6150 print#2,chr$(peek(z));:z=z+1
  102. 6160 ifz<ythen6150
  103. 6170 close2:print"[147][198]ertig..."
  104.